home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / SHARED.DIR / 01039_Script_sbcrxxx < prev    next >
Text File  |  1995-11-21  |  1KB  |  56 lines
  1. -- standard button contents
  2. --property myRollover, myPressed, myChannel, myScript, ancestor
  3. --
  4. --on birth me, sp, ro, pr, sc
  5. --  set ancestor to birth(script "sbc",sp, ro, pr, sc)
  6. --  set myRollover to (the number of cast ro)
  7. --  set myPressed to (the number of cast pr)
  8. --  set myScript to sc
  9. --  set myChannel to integer(sp)
  10. --  return me
  11. --end
  12.  
  13.  
  14. on sbcrpress info
  15.   global gRetraceSbcR
  16.   
  17.   set myChannel = integer(item 4 of info)
  18.   set myPressed = integer(item 6 of info) 
  19.   
  20.   puppetSprite myChannel,TRUE
  21.   set the castNum of sprite myChannel to myPressed
  22.   updateStage
  23.   puppetSprite myChannel, false
  24.   
  25. --  set t = the ticks
  26. --  
  27. --  repeat while (t+30) > the ticks
  28. --  end repeat
  29.   
  30. --  if the mouseDown then
  31.     set gRetraceSbcR = 1
  32.     --sbcrdoScript info
  33.     set command = item 7 of info
  34.     do command
  35. --  end if
  36.   
  37. end
  38.  
  39. on sbcrdoScript theLine
  40.   global gRetraceSbcR
  41.   if gRetraceSbcR then
  42.     set gRetraceSbcR= 0
  43.     exit
  44.   end if
  45.   
  46.   --sbcdoScript theLine
  47. end doScript
  48.  
  49. on sbcrrollo myChan, myRollo
  50.   sbcrollo myChan, myRollo
  51. end sbcrrollo
  52.  
  53. on sbcrnorm theLine
  54.   sbcnorm theLine
  55. end sbcrnorm
  56.